Private Sub CommandButton1_Click()

    Dim i As Integer
    Dim  As Integer

    With ListBox1

         = .ListIndex

        .AddItem .List(.ListIndex),  - 1

        For i = 1 To .ColumnCount - 1

            .List( - 1, i) = .List(.ListIndex, i)

        Next

        .RemoveItem .ListIndex
        .ListIndex =  - 1

    End With

End Sub